From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 10 Mar 1993 06:31:49 +0000 (+0000)
Subject: (function-key-map): Map key symbols backspace, return... into ASCII chars.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96964
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3fd5d5626eaf5b8d05ecb01c9ba3cf1785a1b670;p=emacs.git

(function-key-map): Map key symbols backspace, return... into ASCII chars.
Likewise their Meta versions.
Also add `ascii-character' properties.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 53daad9a7d9..91a50f6491c 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -440,6 +440,23 @@ This returns ARGS with the arguments that have been processed removed."
 (define-key function-key-map [clear] [11])
 (define-key function-key-map [return] [13])
 (define-key function-key-map [escape] [?\e])
+(define-key function-key-map [M-backspace] [?\M-\d])
+(define-key function-key-map [M-delete] [?\M-\d])
+(define-key function-key-map [M-tab] [?\M-\t])
+(define-key function-key-map [M-linefeed] [?\M-\n])
+(define-key function-key-map [M-clear] [?\M-\013])
+(define-key function-key-map [M-return] [?\M-\015])
+(define-key function-key-map [M-escape] [?\M-\e])
+
+;; Eventually these will tell read-char how to convert
+;; these special chars to ASCII.
+(put 'backspace 'ascii-character 127)
+(put 'delete 'ascii-character 127)
+(put 'tab 'ascii-character ?\t)
+(put 'linefeed 'ascii-character ?\n)
+(put 'clear 'ascii-character 12)
+(put 'return 'ascii-character 13)
+(put 'escape 'ascii-character ?\e)
 
 ;;;; Selections and cut buffers